Language/OS - Multiplatform Resource Library

home *** CD-ROM | disk | FTP | other *** search

/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / op / magic.t < prev next >

MacBinary | 1992-01-05 | 1.6 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	E-Tracker Chiptune `(music/eTracker)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Simis `(archive/simis)`	ext	Unsupported
`1%`	dexvert	TADS `(other/tads)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sun Jan 5 00:13:22 1992, modified Sun Jan 5 00:13:22 1992, creator 'MPS ', type ASCII, 949 bytes "magic.t"	default (weak)
`99%`	file	a ./perl script executable (binary data), at 0x435 428 bytes resource	default (weak)
`98%`	file	a ./perl script executable (binary data)	default (weak)
`97%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 6d 61 67 69 63 2e | 74 00 00 00 00 00 00 00 |..magic.|t.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 b5 00 | 00 01 ac a5 8c 44 72 a5 |........|.....Dr.|
|00000060| 8c 44 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Dr.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a4 53 00 00 |........|.....S..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 6d 61 67 | 69 63 2e 74 2c 76 20 34 |der: mag|ic.t,v 4|
|000000a0| 2e 30 20 39 31 2f 30 33 | 2f 32 30 20 30 31 3a 35 |.0 91/03|/20 01:5|
|000000b0| 33 3a 33 35 20 6c 77 61 | 6c 6c 20 4c 6f 63 6b 65 |3:35 lwa|ll Locke|
|000000c0| 64 20 24 0d 0d 24 7c 20 | 3d 20 31 3b 09 09 23 20 |d $..$| |= 1;..# |
|000000d0| 63 6f 6d 6d 61 6e 64 20 | 62 75 66 66 65 72 69 6e |command |bufferin|
|000000e0| 67 0d 0d 70 72 69 6e 74 | 20 22 31 2e 2e 35 5c 6e |g..print| "1..5\n|
|000000f0| 22 3b 0d 0d 65 76 61 6c | 20 27 24 45 4e 56 7b 22 |";..eval| '$ENV{"|
|00000100| 66 6f 6f 22 7d 20 3d 20 | 22 68 69 20 74 68 65 72 |foo"} = |"hi ther|
|00000110| 65 22 3b 27 3b 09 23 20 | 63 68 65 63 6b 20 74 68 |e";';.# |check th|
|00000120| 61 74 20 45 4e 56 20 69 | 73 20 69 6e 69 74 65 64 |at ENV i|s inited|
|00000130| 20 69 6e 73 69 64 65 20 | 65 76 61 6c 0d 69 66 20 | inside |eval.if |
|00000140| 28 60 65 63 68 6f 20 5c | 24 66 6f 6f 60 20 65 71 |(`echo \|$foo` eq|
|00000150| 20 22 68 69 20 74 68 65 | 72 65 5c 6e 22 29 20 7b | "hi the|re\n") {|
|00000160| 70 72 69 6e 74 20 22 6f | 6b 20 31 5c 6e 22 3b 7d |print "o|k 1\n";}|
|00000170| 20 65 6c 73 65 20 7b 70 | 72 69 6e 74 20 22 6e 6f | else {p|rint "no|
|00000180| 74 20 6f 6b 20 31 5c 6e | 22 3b 7d 0d 0d 75 6e 6c |t ok 1\n|";}..unl|
|00000190| 69 6e 6b 20 27 61 6a 73 | 6c 6b 64 66 70 71 6a 73 |ink 'ajs|lkdfpqjs|
|000001a0| 6a 66 6b 27 3b 0d 24 21 | 20 3d 20 30 3b 0d 6f 70 |jfk';.$!| = 0;.op|
|000001b0| 65 6e 28 66 6f 6f 2c 27 | 61 6a 73 6c 6b 64 66 70 |en(foo,'|ajslkdfp|
|000001c0| 71 6a 73 6a 66 6b 27 29 | 3b 0d 69 66 20 28 24 21 |qjsjfk')|;.if ($!|
|000001d0| 20 3d 3d 20 32 29 20 7b | 70 72 69 6e 74 20 22 6f | == 2) {|print "o|
|000001e0| 6b 20 32 5c 6e 22 3b 7d | 20 65 6c 73 65 20 7b 70 |k 2\n";}| else {p|
|000001f0| 72 69 6e 74 20 22 6e 6f | 74 20 6f 6b 20 32 5c 6e |rint "no|t ok 2\n|
|00000200| 22 3b 7d 0d 0d 23 20 74 | 68 65 20 6e 65 78 74 20 |";}..# t|he next |
|00000210| 74 65 73 74 73 20 61 72 | 65 20 65 6d 62 65 64 64 |tests ar|e embedd|
|00000220| 65 64 20 69 6e 73 69 64 | 65 20 73 79 73 74 65 6d |ed insid|e system|
|00000230| 20 73 69 6d 70 6c 79 20 | 62 65 63 61 75 73 65 20 | simply |because |
|00000240| 73 68 20 73 70 69 74 73 | 20 6f 75 74 0d 23 20 61 |sh spits| out.# a|
|00000250| 20 6e 65 77 6c 69 6e 65 | 20 6f 6e 74 6f 20 73 74 | newline| onto st|
|00000260| 64 65 72 72 20 77 68 65 | 6e 20 61 20 63 68 69 6c |derr whe|n a chil|
|00000270| 64 20 70 72 6f 63 65 73 | 73 20 6b 69 6c 6c 73 20 |d proces|s kills |
|00000280| 69 74 73 65 6c 66 20 77 | 69 74 68 20 53 49 47 49 |itself w|ith SIGI|
|00000290| 4e 54 2e 0d 0d 73 79 73 | 74 65 6d 20 27 2e 2f 70 |NT...sys|tem './p|
|000002a0| 65 72 6c 27 2c 0d 27 2d | 65 27 2c 20 27 24 7c 20 |erl',.'-|e', '$| |
|000002b0| 3d 20 31 3b 09 09 23 20 | 63 6f 6d 6d 61 6e 64 20 |= 1;..# |command |
|000002c0| 62 75 66 66 65 72 69 6e | 67 27 2c 0d 0d 27 2d 65 |bufferin|g',..'-e|
|000002d0| 27 2c 20 27 24 53 49 47 | 7b 22 49 4e 54 22 7d 20 |', '$SIG|{"INT"} |
|000002e0| 3d 20 22 6f 6b 33 22 3b | 20 6b 69 6c 6c 20 32 2c |= "ok3";| kill 2,|
|000002f0| 24 24 3b 27 2c 0d 27 2d | 65 27 2c 20 27 24 53 49 |$$;',.'-|e', '$SI|
|00000300| 47 7b 22 49 4e 54 22 7d | 20 3d 20 22 49 47 4e 4f |G{"INT"}| = "IGNO|
|00000310| 52 45 22 3b 20 6b 69 6c | 6c 20 32 2c 24 24 3b 20 |RE"; kil|l 2,$$; |
|00000320| 70 72 69 6e 74 20 22 6f | 6b 20 34 5c 6e 22 3b 27 |print "o|k 4\n";'|
|00000330| 2c 0d 27 2d 65 27 2c 20 | 27 24 53 49 47 7b 22 49 |,.'-e', |'$SIG{"I|
|00000340| 4e 54 22 7d 20 3d 20 22 | 44 45 46 41 55 4c 54 22 |NT"} = "|DEFAULT"|
|00000350| 3b 20 6b 69 6c 6c 20 32 | 2c 24 24 3b 20 70 72 69 |; kill 2|,$$; pri|
|00000360| 6e 74 20 22 6e 6f 74 20 | 6f 6b 5c 6e 22 3b 27 2c |nt "not |ok\n";',|
|00000370| 0d 0d 27 2d 65 27 2c 20 | 27 73 75 62 20 6f 6b 33 |..'-e', |'sub ok3|
|00000380| 20 7b 20 70 72 69 6e 74 | 20 22 6f 6b 20 33 5c 6e | { print| "ok 3\n|
|00000390| 22 20 69 66 20 70 6f 70 | 28 40 5f 29 20 65 71 20 |" if pop|(@_) eq |
|000003a0| 22 49 4e 54 22 3b 20 7d | 27 3b 0d 0d 40 76 61 6c |"INT"; }|';..@val|
|000003b0| 31 20 3d 20 40 45 4e 56 | 7b 6b 65 79 73 28 25 45 |1 = @ENV|{keys(%E|
|000003c0| 4e 56 29 7d 3b 09 23 20 | 63 61 6e 20 77 65 20 73 |NV)};.# |can we s|
|000003d0| 6c 69 63 65 20 45 4e 56 | 3f 0d 40 76 61 6c 32 20 |lice ENV|?.@val2 |
|000003e0| 3d 20 76 61 6c 75 65 73 | 28 25 45 4e 56 29 3b 0d |= values|(%ENV);.|
|000003f0| 0d 70 72 69 6e 74 20 6a | 6f 69 6e 28 27 3a 27 2c |.print j|oin(':',|
|00000400| 40 76 61 6c 31 29 20 65 | 71 20 6a 6f 69 6e 28 27 |@val1) e|q join('|
|00000410| 3a 27 2c 40 76 61 6c 32 | 29 20 3f 20 22 6f 6b 20 |:',@val2|) ? "ok |
|00000420| 35 5c 6e 22 20 3a 20 22 | 6e 6f 74 20 6f 6b 20 35 |5\n" : "|not ok 5|
|00000430| 5c 6e 22 3b 0d 00 00 00 | 00 00 00 00 00 00 00 00 |\n";....|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| 00 00 01 32 05 70 61 74 | 2e 74 02 00 00 00 54 45 |...2.pat|.t....TE|
|000004a0| 58 54 4d 50 53 20 00 00 | 80 00 70 c4 00 00 00 00 |XTMPS ..|..p.....|
|000004b0| 07 6d 61 67 69 63 2e 74 | 02 00 00 00 54 45 58 54 |.magic.t|....TEXT|
|000004c0| 4d 50 53 20 00 00 00 00 | 00 00 00 00 00 00 76 23 |MPS ....|......v#|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a5 8c 0c 32 00 00 | 03 b5 00 00 01 ac 00 00 |.....2..|........|
|00000500| 0c 00 00 00 01 32 06 74 | 65 72 6d 2e 74 2d 02 00 |.....2.t|erm.t-..|
|00000510| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000520| 00 00 00 00 13 4a 00 00 | 00 00 03 83 00 00 08 00 |.....J..|........|
|00000530| 00 00 00 00 01 ac 00 00 | 08 00 a5 8c 0c 04 a5 8c |........|........|
|00000540| cd 20 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |. ......|........|
|00000550| 00 00 00 00 00 00 00 00 | 11 c9 00 01 00 00 00 00 |........|........|
|00000560| 00 00 00 00 11 de 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 0e 00 00 00 | 01 32 08 74 65 72 6d 2e |........|.2.term.|
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 06 | 00 03 00 64 00 1c 01 dd |........|...d....|
|000005b0| 02 3d 00 64 00 1c 01 dd | 02 3d a5 8c 0c 32 00 00 |.=.d....|.=...2..|
|000005c0| 02 15 00 00 02 26 00 00 | 00 00 01 00 00 00 00 1e |.....&..|........|
|000005d0| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000600| a4 ec 0b c2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 00 31 ae f8 00 00 00 00 |.......L|.1......|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+